<!--------' A SCRIPT LANGUAGE tag should be the first item on this page ------->
</SCRIPT>
<!--
This page is implemented using a draft specification recently published by the
Worldwide Web Consortium (W3C) that extends HTML capabilities to provide exact,
2D layout features. Refer to http://www.w3.org/pub/TR/WD-layout.htm for more
information on the tags used in these pages. This source page is displayed in
the Internet Explorer 3.0 using the Microsoft HTML Layout Control.
-->
<!-- This variable selects a caption and a URL associated with questions. -->
<SCRIPT LANGUAGE="VBScript">
Dim z
</SCRIPT>
<!-- This is a user-written procedure to display the answer popup. -->
<SCRIPT LANGUAGE="VBScript">
Sub Procedure1()
Answers.Visible = True
Answrtxt.Visible = True
ansoff1.visible=true
ansbar1.Visible = True
If z=1 then answrtxt.Caption = "There are many ways to get sports scores and information on the Internet. You can find major leagues, minor leagues, even Little Leagues. Click here to check current sports news at USA Today."
If z=2 then answrtxt.Caption = "Visit Bill Nye the Science Guy's homepage. Download pictures and sounds from Bill Nye's television show. Click here and you're off. Click on the Back arrow of your browser to return."
If z=3 then answrtxt.Caption = "The Internet is the World's largest library. Check out the MSN homepage and try searching for information on any topic with a search engine such as Lycos or Yahoo. Click here!"
If z=4 then answrtxt.Caption = "There are games for all ages on the Internet. You can play by yourself or with someone far away. Here is a simple game; Mr. Edible Starchy Tuber Head. Click here to try it."
end sub
</SCRIPT>
<!-- Transparent label over signpost graphic linked to Gallery page. -->
<SCRIPT LANGUAGE="VBScript">
Sub gallsign_Click()
Window.location.href = "gallery.htm"
end sub
</SCRIPT>
<!-- Transparent label over signpost graphic linked to Clubhouse page. -->
<SCRIPT LANGUAGE="VBScript">
Sub clubsgn_Click()
Window.location.href = "wclub.htm"
end sub
</SCRIPT>
<!-- Transparent label over signpost graphic linked to Home (Winston) page. -->
<SCRIPT LANGUAGE="VBScript">
Sub homesgn_Click()
Window.location.href = "winston.htm"
end sub
</SCRIPT>
<!-- Label over blackboard linked to popup and external URL. -->
<SCRIPT LANGUAGE="VBScript">
Sub Scienceq_Click()
z=2
Call Procedure1()
end sub
</SCRIPT>
<!-- Label over blackboard linked to popup and external URL. -->
<SCRIPT LANGUAGE="VBScript">
Sub hmworkq_Click()
z=3
Call Procedure1()
end sub
</SCRIPT>
<!-- Label over blackboard linked to popup and external URL. -->
<SCRIPT LANGUAGE="VBScript">
Sub gamesq_Click()
z=4
Call Procedure1()
end sub
</SCRIPT>
<!-- Label over blackboard linked to popup and external URL. -->
<SCRIPT LANGUAGE="VBScript">
Sub sportq_Click()
z=1
Call Procedure1()
end sub
</SCRIPT>
<!-- Hotspot that show new face at Mouse Enter and hides it at Mouse Exit. -->
<SCRIPT LANGUAGE="VBScript">
<!--
Sub hotface_MouseEnter()
msface.Visible = True
end sub
Sub hotface_MouseExit()
msface.Visible = False
end sub
-->
</SCRIPT>
<!-- Hides the popup components. -->
<SCRIPT LANGUAGE="VBScript">
Sub ansoff1_Click()
ansoff1.Visible = False
Answers.Visible = False
answrtxt.Visible = False
ansbar1.Visible = False
end sub
</SCRIPT>
<!-- Selects correct external URL when the popup is clicked. -->
<SCRIPT LANGUAGE="VBScript">
Sub answrtxt_Click()
If z=1 then Window.location.href = "http://www.usatoday.com/sports/sfront.htm"
If z=2 then Window.location.href = "http://nyelabs.kcts.org/"
If z=3 then Window.location.href = "http://www.msn.com/access/allinone.asp"
If z=4 then Window.location.href = "http://winnie.acsu.buffalo.edu/potatoe"
end sub
</SCRIPT>
<!-- Transparent label shows black over everything label on click event. -->
<SCRIPT LANGUAGE="VBScript">
Sub blackout_Click()
blackout.Visible = False
end sub
</SCRIPT>
<!-- Clicking on the large black label hides it. -->
